home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / K-3D / k3d-0.4.2.1 / shaders / k3d_imagelayergradient.sl < prev    next >
Encoding:
Text File  |  2004-07-23  |  360 b   |  17 lines
  1. surface k3d_imagelayergradient(color zenith = color(0, 0, 1);
  2.                    color sky = color(.5, .5, 1);
  3.                    color ground = color(.6, .6, .1);
  4.                    color nadir = color(0, 0, 0);)
  5. {
  6.   Oi = Os;
  7.  
  8.   if(v < 0.5)
  9.     {
  10.       Ci = Cs * mix(zenith, sky, v * 2.0);
  11.     }
  12.   else
  13.     {
  14.       Ci = Cs * mix(ground, nadir, (v - 0.5) * 2.0);
  15.     }
  16. }
  17.